home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / _matite < prev    next >
Text File  |  1996-07-08  |  6KB  |  251 lines
  1. /*
  2. ** Matite 1.1 -------- 15-9-1994
  3. **
  4. ** Disegno a matita con riscalatura
  5. ** automatica della carta.
  6. */
  7.  
  8. address command
  9. rxset SLEEP '`requestchoice "STILE DI DISEGNO" "SCEGLI LO STILE" "1400" "Pelizza" "Klimt" "Redon" "Signac" "PopArt" "EXIT"`'
  10.    tx = getclip('SLEEP')
  11.  
  12. ADDRESS "ADPro"
  13. OPTIONS RESULTS
  14.   TRUE  = 1
  15.   FALSE = 0
  16. XSIZE
  17.   BASE = ADPRO_RESULT
  18. YSIZE
  19.   ALTEZZA = ADPRO_RESULT
  20.  
  21.    IF tx = 1  THEN CALL 1400
  22.    IF tx = 2  THEN CALL Pelizza
  23.    IF tx = 3  THEN CALL Klimt
  24.    IF tx = 4  THEN CALL Redon
  25.    IF tx = 5  THEN CALL Signac
  26.    IF tx = 6  THEN CALL PopArt
  27.    IF tx = 0  THEN EXIT
  28.  
  29.  OKAY2 "Vuoi utilizzare una carta di fondo?"
  30.  IF (RC ~= 0) THEN
  31.    CALL CARTA
  32.  ELSE
  33.    EXIT
  34. EXIT
  35.  
  36. 1400:
  37. OPERATOR Color_To_Gray 3333 3334 3333
  38. OPERATOR Line_Art
  39. OPERATOR Gray_To_Color
  40. OPERATOR Dynamic_Range 0 255
  41. OPERATOR Displace_Pixel 2 40 1258
  42. BRIGHTNESS (-20)
  43. CONTRAST 15
  44. GAMMA 10
  45. OPERATOR Apply_Map
  46.  XSIZE                   /*risolvo il bego di Line_Art*/
  47.   BASEL = ADPRO_RESULT
  48.  YSIZE
  49.   ALTEZZAL = ADPRO_RESULT
  50.  IF (BASE ~= BASEL) | (ALTEZZA ~= ALTEZZAL)
  51.   THEN ABS_SCALE (BASE) (ALTEZZA)
  52. OPERATOR Median_Filter 45
  53. OPERATOR Antique
  54. RETURN
  55.  
  56. Pelizza:
  57. TempMatita = "T:TempMatita"
  58. TempOrigin = "T:TempOrigin"
  59. SAVER "IFF" TempOrigin "RAW"
  60.  OPERATOR "CONVOLVE" "ADPRO:Convolutions/Sharpen3_3x3" 100 0
  61. IF (RC ~= 0) THEN DO
  62.      ADPRO_TO_FRONT
  63.      OKAY1 "Manca il CONVOLVE richiesto nella directory CONVOLUTIONS"
  64.    EXIT
  65. END
  66. SAVER "IFF" TempMatita "RAW"
  67. OPERATOR "NEGATIVE"
  68. LOADER "UNIVERSAL" TempMatita 2 2 50
  69. OPERATOR "COLOR_TO_GRAY" 2990 5880 2000
  70. CONTRAST 50
  71. OPERATOR "APPLY_MAP"
  72. OPERATOR "COLORIZE" HSV 0 255 (-1) 70 5 5 HUE 0 360
  73. OPERATOR "SATURATION" "YUV" 100
  74. OPERATOR "CONVOLVE" "ADPRO:Convolutions/BigSharpen" 100 0
  75.   IF (RC ~= 0) THEN DO
  76.    ADPRO_TO_FRONT
  77.    OKAY1 "Manca il CONVOLVE richiesto"
  78.   EXIT
  79.  END
  80. OPERATOR COLOR_TO_GRAY 3333 3334 3333
  81. OPERATOR DYNAMIC_RANGE 0 250
  82. OPERATOR MEDIAN_FILTER 100
  83. OPERATOR GRAY_TO_COLOR
  84.  RED 10
  85.  BLUE (-10)
  86.  BRIGHTNESS (-5)
  87.  CONTRAST 20
  88. OPERATOR Apply_Map
  89. LOADER "UNIVERSAL" TempOrigin 0 0 50
  90.  BRIGHTNESS (-5)
  91.  OPERATOR Apply_Map
  92.    ADDRESS COMMAND "Delete >NIL:" TempOrigin
  93.    ADDRESS COMMAND "Delete >NIL:" TempMatita
  94. RETURN
  95.  
  96. Klimt:
  97. OPERATOR Color_To_Gray 2990 5880 1130
  98. OPERATOR Line_Art
  99. OPERATOR Gray_To_Color
  100. OPERATOR Displace_Pixel 1 40 25812
  101. RED 6
  102. BRIGHTNESS (-10)
  103. CONTRAST 6
  104. OPERATOR Apply_Map
  105. OPERATOR Hist_Equalization
  106.  XSIZE                   /*risolvo il bego di Line_Art*/
  107.   BASEL = ADPRO_RESULT
  108.  YSIZE
  109.   ALTEZZAL = ADPRO_RESULT
  110.  IF (BASE ~= BASEL) | (ALTEZZA ~= ALTEZZAL)
  111.   THEN ABS_SCALE (BASE) (ALTEZZA)
  112. OPERATOR Median_Filter 40
  113. RETURN
  114.  
  115. Redon:
  116.  PSTATUS unlocked
  117.  PCONTRAST 1
  118.  PWIDTH enhanced
  119.  SET_RENDER_MODE AMIGA 135172 736 566 HAM
  120.  DITHER OFF
  121.  EXECUTE
  122. OPERATOR "Rendered_to_Raw"
  123. OPERATOR "CONVOLVE" "ADPRO:Convolutions/LaplacianEdge" 100 0
  124.   IF (RC ~= 0) THEN DO
  125.     ADPRO_TO_FRONT
  126.     OKAY1 "Manca il CONVOLVE richiesto"
  127.    EXIT
  128.  END
  129. OPERATOR "NEGATIVE"
  130. OPERATOR "DISPLACE_PIXEL" 1 50 5258
  131. BRIGHTNESS (-50)
  132. CONTRAST 9
  133. OPERATOR "APPLY_MAP"
  134. OPERATOR "CONVOLVE" "ADPRO:Convolutions/BigSharpen" 100 0
  135.   IF (RC ~= 0) THEN DO
  136.    ADPRO_TO_FRONT
  137.    OKAY1 "Manca il CONVOLVE richiesto"
  138.   EXIT
  139.  END
  140. RED 5
  141. GREEN (-8)
  142. BLUE (-10)
  143. OPERATOR "APPLY_MAP"
  144. OPERATOR "BLUR" 1 100
  145. RETURN
  146.  
  147. Signac:
  148. OPERATOR "CONVOLVE" "ADPRO:Convolutions/WoodCut" 100 0
  149.   IF (RC ~= 0) THEN DO
  150.    ADPRO_TO_FRONT
  151.    OKAY1 "Manca il CONVOLVE richiesto"
  152.   EXIT
  153.  END
  154. OPERATOR "CONVOLVE" "ADPRO:Convolutions/West" 100 0
  155.   IF (RC ~= 0) THEN DO
  156.    ADPRO_TO_FRONT
  157.    OKAY1 "Manca il CONVOLVE richiesto"
  158.   EXIT
  159.  END
  160. PSTATUS unlocked
  161. PCONTRAST 1
  162. PWIDTH enhanced
  163. SET_RENDER_MODE AMIGA 167940 736 566 16
  164. DITHER 1
  165. EXECUTE
  166. OPERATOR Rendered_to_raw
  167. OPERATOR Displace_Pixel 2 40 9589
  168. OPERATOR Median_Filter 20
  169. BRIGHTNESS (-5)
  170. OPERATOR Apply_Map
  171. RETURN
  172.  
  173. PopArt:
  174. TempOrigin = "T:TempOrigin"
  175. TempConturn = "T:TempConturn"
  176.  SAVER "IFF" TempOrigin "RAW"
  177. OPERATOR Dynamic_Range 0 2
  178. OPERATOR Color_To_Gray 3333 3334 3333
  179. OPERATOR Line_Art
  180. OPERATOR Gray_To_Color
  181. OPERATOR Dynamic_Range 0 255
  182. OPERATOR Displace_Pixel 2 10 2585
  183. BRIGHTNESS (-20)
  184. GAMMA (-50)
  185. OPERATOR Apply_Map
  186. OPERATOR Dynamic_Range 0 3
  187. OPERATOR Dynamic_Range 0 255
  188. BRIGHTNESS (-20)
  189. OPERATOR Apply_Map
  190. XSIZE                   /*risolvo il bego di Line_Art*/
  191.   BASEL = ADPRO_RESULT
  192. YSIZE
  193.   ALTEZZAL = ADPRO_RESULT
  194. IF (BASE ~= BASEL) | (ALTEZZA ~= ALTEZZAL)
  195.  THEN ABS_SCALE (BASE) (ALTEZZA)
  196.    DO 2
  197.   CONTRAST 50
  198.   OPERATOR Apply_Map
  199.   CONTRAST 50
  200.   OPERATOR Apply_Map
  201.   CONTRAST 50
  202.   OPERATOR Apply_Map
  203.   PSTATUS unlocked
  204.   PCONTRAST 1
  205.   PWIDTH normal
  206.   SET_RENDER_MODE AMIGA 167940 736 566 2
  207.   DITHER OFF
  208.   EXECUTE
  209.   OPERATOR Rendered_to_raw
  210.    END
  211. OPERATOR GRAY_TO_COLOR
  212.  SAVER "IFF" TempConturn "RAW"
  213. LOADER "UNIVERSAL" TempOrigin
  214.  PSTATUS unlocked
  215.  PCONTRAST 1
  216.  PWIDTH normal
  217.  SET_RENDER_MODE AMIGA 167940 736 566 4
  218.  DITHER OFF
  219.  EXECUTE
  220. OPERATOR Rendered_to_raw
  221. LOADER "UNIVERSAL" TempConturn 0 0 90 255 255 255
  222.    ADDRESS COMMAND "Delete >NIL:" TempOrigin
  223.    ADDRESS COMMAND "Delete >NIL:" TempConturn
  224.  RETURN
  225.  
  226. CARTA:
  227. SAVER "IFF" DISEGNO "RAW"
  228.  GETFILE '"Scegli LA CARTA e premi OK"'
  229.    IF RC ~= 0 THEN EXIT
  230.    else DO
  231.    CARTA = ADPRO_RESULT
  232.    LOADER "UNIVERSAL" (CARTA)
  233. XSIZE
  234.   BASEC = ADPRO_RESULT
  235. YSIZE
  236.   ALTEZZAC = ADPRO_RESULT
  237. IF (BASE ~= BASEC) | (ALTEZZA ~= ALTEZZAC)
  238.  THEN ABS_SCALE (BASE) (ALTEZZA)
  239. IMAGE_TYPE
  240.   ImageType = ADPRO_RESULT
  241.   IF ImageType = (COLOR BITPLANE) THEN
  242.     OPERATOR "RENDERED_TO_RAW"
  243.   IF ImageType = (GRAY BITPLANE) THEN
  244.     OPERATOR "GRAY_TO_COLOR"
  245.   IF ImageType = (GRAY) THEN
  246.     OPERATOR "GRAY_TO_COLOR"
  247.  LOADER "IFF" DISEGNO COMPOFFSET 0 0 80
  248.  ADDRESS COMMAND "Delete >NIL:" DISEGNO
  249. RETURN
  250.  
  251.